home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 236 / 236.d81 / b.manners quiz (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  747b  |  30 lines
  1. 5 d=peek(186):ifd<8thend=8
  2. 10 gosub41000
  3. 15 p$="quiz.pkd"
  4. 20 print"[144]loadp$,d":print"run"
  5. 60 poke631,13:poke632,13:poke198,2:end
  6. 10999 end
  7. 41000 poke53280,0:poke53281,0:poke53272,22:print"[147]"
  8. 41002 poke214,14:print
  9. 41004 printtab(1)"[155]                                     "
  10. 41005 forx=1to6
  11. 41006 printtab(1)"[152]                                     "
  12. 41007 next
  13. 41013 printtab(1)"[151]                                     "
  14. 41015 gosub60008:n2$="manners "+n$:poke214,16:print
  15. 41016 n1$="":forx=1tolen(n2$):n1$=n1$+chr$(128+asc(mid$(n2$,x))):next
  16. 41019 printtab(19-len(n2$)/2)"[152]"n1$
  17. 41020 forx=2to4:reada$:poke214,15+x:print
  18. 41022 printtab(19-len(a$)/2)"[152]"a$
  19. 41024 next
  20. 41030 t=ti+60
  21. 41031 ift>tithen41031
  22. 41032 print"":return
  23. 41051 data"by [196]ave [205]oorman
  24. 41052 [131]"(c) 2004 by mid$ & asc (NULL)ublishing, right$nc.
  25. 41053 data"www.eloadstar.com
  26. 60000 d[178][194](186):[141]60008:n$[178]"manners "[170]n$
  27. 60001 [159]1,d,15,"i0":[152]1,"s0:b."[170]n$:[160]1:[148]"b."[170]n$,d:[128]
  28. 60008 n$[178]"quiz"
  29. 60009 [142]
  30.